; Startup file for Star
{Print
:Print
(
#? FFF FFE FEB
*echo <27>G<27>E********   %?<27>F<27>H<10><10> { > printer: }
*copy %? printer: ~c ~v
*echo <10><10> { > printer: }
)  

:BPrint
(
#? FFF FFE FEB
*set p1 %<>?.%>?
*if LEN p1 >16 then set p1 %>?
*flag { > printer: }
*copy %? printer: ~c ~v
*echo <10><10> { > printer: }
)
:Open
*Filer_OpenDir printer:
}

{Apps
:Edit
*Run <Apps$Dir>.Eds.!Edit
:Ed
*Run <Apps$Dir>.Eds.!Ed
:Alarm
*Run <Apps$Dir>.Useful.!Alarm
:Taipei
*run <Root$Dir>.Games.Board.!Taipei
:Patience
*run <Root$Dir>.Games.Board.!Patience
}

{Other
:startext
|*Filer_opendir <Star$Dir>.StarText
{Show
:FileType
*Show File$Type*
:Alias
*Show Alias$*
:Keys
*Show Key*
:Paths
*Show *$Path
:Dirs
*Show *$Dir
}
:Scan
*rmreinit scanloader
*startscan
}   

{Files
:Dir
<0 <Root$Dir>
#0 1000 2000 123456
*dir %0

:Info
[
(
*Info %?
)
]

:Wipe :0
*Filer_opendir adfs::0.$
? Do you really want to wipe disk in :0
*Wipe ADFS::0.$ ~CFR~V
}

{Comm
:Arcterm
*rmkill internationalkeyboard
[
*dir <Root$Dir>
*urd $.Comm
*Wimpslot -min 640k -max 1024k
*arcterm -rcomm
]
*rmreinit internationalkeyboard

:ToArc
(
*settype %? DDC
)

:ToText
(
*settype %? FFF
)

:OpenSpl
|*Filer_OpenDir <Root$Dir>.Comm.SPL

}

{Basic
:Edit
#0 FFB
*DIR %<0
*RMensure ARMBasicEditor 1.00 RMload Module:BasicEdit
*KEY 0 LISTO 1|M LIST |B|O|M|C
*KEY 1 EDIT |M
*KEY 2 RUN|M
*KEY 3 SAVE|M
*KEY 4 LVAR|M
*KEY 11 *PCOL|M
*KEY12 |C|O*QUIT|M
|+EDIT|M
*BASIC -LOAD %0
:New
<0 $
#0 1000 2000 123456
*DIR %0
*RMensure ARMBasicEditor 1.00 RMload Module:BasicEdit
*KEY 0 LISTO 1|M LIST |B|O|M|C
*KEY 1 EDIT |M
*KEY 2 RUN|M
*KEY 3 SAVE|M
*KEY 4 LVAR|M
*KEY 11 PCOL|M
*KEY12 |C|O*QUIT|M
|+EDIT|M
*BASIC
:BAStoTXT
#0 FFB
|+LISTO 1|M*SPOOL <Star$Scrap>.%>0|MLIST|M*SPOOL|MQUIT|M
*BASIC -LOAD %0
*settype <Star$Scrap>.%>0 FFF
><Star$Scrap>.%>0
|+<&88><&AE><&8F><&8F><&88><&AF>
:TXTtoBAS
#0 FFF
|+*EXEC %0|MSAVE "<Star$Scrap>.%>0"|MQUIT|M
*BASIC
}

{C
:Make
[
*dir <C$Dir>
*RMEnsure SharedCLibrary 1.02 RMLoad System:Modules.CLib
*wimpslot -min 640k -max 1024k
*amu "CCF= -fah " -i
]

:Tidy
[
*dir <C$Dir>
*wimpslot -min 320k -max 640k
*amu tidy
]


:MakeDb
[
*dir <C$Dir>
*RMEnsure SharedCLibrary 1.02 RMLoad System:Modules.CLib
*wimpslot -min 640k -max 1024k
*amu "CCF= -g " "LKF= -d "
]

:Remote
[
*dir <C$Dir>
*asd -remote
]

:Set C$Dir
#0 1000 2000
*set C$Dir %0

:Open c
|*Filer_OpenDir <C$Dir>.c

:Open h
|*Filer_OpenDir <C$Dir>.h

:Touch
#! FFF FED
(
*stamp %<<?.o.%>?
)

:Lid
<0<Root$Dir>.arm.RISC_OSlib.id
#0 FFD 123456
[
*wimpslot -min 128k -max 640k
*lid -f%0 %"Search for identifier?"
]

:Mkid
<0 <C$Dir>
#0 1000 2000 123456
[
*dir %0
*wimpslot -min 320k -max 640k
*mkid -v c.* h.*
*settype id FFD
]

:Compare
[
*wimpslot -min 128k -max 640k
*echo |N |Z |L
*fc %0 %1 F TR
]
}
